\(\int \frac {(d x)^{-1+\frac {n}{2}} (-a h+c f x^{n/2}+c g x^{3 n/2}+c h x^{2 n})}{(a+b x^n+c x^{2 n})^{3/2}} \, dx\) [15]

Optimal result

Integrand size = 63, antiderivative size = 95 \[ \int \frac {(d x)^{-1+\frac {n}{2}} \left (-a h+c f x^{n/2}+c g x^{3 n/2}+c h x^{2 n}\right )}{\left (a+b x^n+c x^{2 n}\right )^{3/2}} \, dx=-\frac {2 x^{1-\frac {n}{2}} (d x)^{\frac {1}{2} (-2+n)} \left (c (b f-2 a g)+\left (b^2-4 a c\right ) h x^{n/2}+c (2 c f-b g) x^n\right )}{\left (b^2-4 a c\right ) n \sqrt {a+b x^n+c x^{2 n}}} \]

[Out]

-2*x^(1-1/2*n)*(d*x)^(-1+1/2*n)*(c*(-2*a*g+b*f)+(-4*a*c+b^2)*h*x^(1/2*n)+c*(-b*g+2*c*f)*x^n)/(-4*a*c+b^2)/n/(a
+b*x^n+c*x^(2*n))^(1/2)

Rubi [A] (verified)

Time = 0.14 (sec) , antiderivative size = 95, normalized size of antiderivative = 1.00, number of steps used = 2, number of rules used = 2, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.032, Rules used = {1768, 1767} \[ \int \frac {(d x)^{-1+\frac {n}{2}} \left (-a h+c f x^{n/2}+c g x^{3 n/2}+c h x^{2 n}\right )}{\left (a+b x^n+c x^{2 n}\right )^{3/2}} \, dx=-\frac {2 x^{1-\frac {n}{2}} (d x)^{\frac {n-2}{2}} \left (h x^{n/2} \left (b^2-4 a c\right )+c (b f-2 a g)+c x^n (2 c f-b g)\right )}{n \left (b^2-4 a c\right ) \sqrt {a+b x^n+c x^{2 n}}} \]

[In]

Int[((d*x)^(-1 + n/2)*(-(a*h) + c*f*x^(n/2) + c*g*x^((3*n)/2) + c*h*x^(2*n)))/(a + b*x^n + c*x^(2*n))^(3/2),x]

[Out]

(-2*x^(1 - n/2)*(d*x)^((-2 + n)/2)*(c*(b*f - 2*a*g) + (b^2 - 4*a*c)*h*x^(n/2) + c*(2*c*f - b*g)*x^n))/((b^2 -
4*a*c)*n*Sqrt[a + b*x^n + c*x^(2*n)])

Rule 1767

Int[((x_)^(m_.)*((e_) + (f_.)*(x_)^(q_.) + (g_.)*(x_)^(r_.) + (h_.)*(x_)^(s_.)))/((a_) + (b_.)*(x_)^(n_.) + (c
_.)*(x_)^(n2_.))^(3/2), x_Symbol] :> Simp[-(2*c*(b*f - 2*a*g) + 2*h*(b^2 - 4*a*c)*x^(n/2) + 2*c*(2*c*f - b*g)*
x^n)/(c*n*(b^2 - 4*a*c)*Sqrt[a + b*x^n + c*x^(2*n)]), x] /; FreeQ[{a, b, c, e, f, g, h, m, n}, x] && EqQ[n2, 2
*n] && EqQ[q, n/2] && EqQ[r, 3*(n/2)] && EqQ[s, 2*n] && NeQ[b^2 - 4*a*c, 0] && EqQ[2*m - n + 2, 0] && EqQ[c*e
+ a*h, 0]

Rule 1768

Int[(((d_)*(x_))^(m_.)*((e_) + (f_.)*(x_)^(q_.) + (g_.)*(x_)^(r_.) + (h_.)*(x_)^(s_.)))/((a_) + (b_.)*(x_)^(n_
.) + (c_.)*(x_)^(n2_.))^(3/2), x_Symbol] :> Dist[(d*x)^m/x^m, Int[x^m*((e + f*x^(n/2) + g*x^((3*n)/2) + h*x^(2
*n))/(a + b*x^n + c*x^(2*n))^(3/2)), x], x] /; FreeQ[{a, b, c, d, e, f, g, h, m, n}, x] && EqQ[n2, 2*n] && EqQ
[q, n/2] && EqQ[r, 3*(n/2)] && EqQ[s, 2*n] && NeQ[b^2 - 4*a*c, 0] && EqQ[2*m - n + 2, 0] && EqQ[c*e + a*h, 0]

Rubi steps \begin{align*} \text {integral}& = \left (x^{1-\frac {n}{2}} (d x)^{-1+\frac {n}{2}}\right ) \int \frac {x^{-1+\frac {n}{2}} \left (-a h+c f x^{n/2}+c g x^{3 n/2}+c h x^{2 n}\right )}{\left (a+b x^n+c x^{2 n}\right )^{3/2}} \, dx \\ & = -\frac {2 x^{1-\frac {n}{2}} (d x)^{\frac {1}{2} (-2+n)} \left (c (b f-2 a g)+\left (b^2-4 a c\right ) h x^{n/2}+c (2 c f-b g) x^n\right )}{\left (b^2-4 a c\right ) n \sqrt {a+b x^n+c x^{2 n}}} \\ \end{align*}

Mathematica [B] (verified)

Leaf count is larger than twice the leaf count of optimal. \(242\) vs. \(2(95)=190\).

Time = 3.46 (sec) , antiderivative size = 242, normalized size of antiderivative = 2.55 \[ \int \frac {(d x)^{-1+\frac {n}{2}} \left (-a h+c f x^{n/2}+c g x^{3 n/2}+c h x^{2 n}\right )}{\left (a+b x^n+c x^{2 n}\right )^{3/2}} \, dx=-\frac {x^{-n/2} (d x)^{n/2} \left (-2 a b^2 h x^{n/2}-2 a b c \left (f-g x^n\right )+4 a c \left (-c f x^n+a \left (g+2 h x^{n/2}\right )\right )+b \sqrt {c} (b f-2 a g) \sqrt {a+x^n \left (b+c x^n\right )} \text {arctanh}\left (\frac {b+2 c x^n}{2 \sqrt {c} \sqrt {a+x^n \left (b+c x^n\right )}}\right )+b \sqrt {c} (b f-2 a g) \sqrt {a+x^n \left (b+c x^n\right )} \log \left (b+2 c x^n-2 \sqrt {c} \sqrt {a+x^n \left (b+c x^n\right )}\right )\right )}{a \left (-b^2+4 a c\right ) d n \sqrt {a+x^n \left (b+c x^n\right )}} \]

[In]

Integrate[((d*x)^(-1 + n/2)*(-(a*h) + c*f*x^(n/2) + c*g*x^((3*n)/2) + c*h*x^(2*n)))/(a + b*x^n + c*x^(2*n))^(3
/2),x]

[Out]

-(((d*x)^(n/2)*(-2*a*b^2*h*x^(n/2) - 2*a*b*c*(f - g*x^n) + 4*a*c*(-(c*f*x^n) + a*(g + 2*h*x^(n/2))) + b*Sqrt[c
]*(b*f - 2*a*g)*Sqrt[a + x^n*(b + c*x^n)]*ArcTanh[(b + 2*c*x^n)/(2*Sqrt[c]*Sqrt[a + x^n*(b + c*x^n)])] + b*Sqr
t[c]*(b*f - 2*a*g)*Sqrt[a + x^n*(b + c*x^n)]*Log[b + 2*c*x^n - 2*Sqrt[c]*Sqrt[a + x^n*(b + c*x^n)]]))/(a*(-b^2
+ 4*a*c)*d*n*x^(n/2)*Sqrt[a + x^n*(b + c*x^n)]))

Maple [F]

\[\int \frac {\left (d x \right )^{-1+\frac {n}{2}} \left (-a h +c f \,x^{\frac {n}{2}}+c g \,x^{\frac {3 n}{2}}+c h \,x^{2 n}\right )}{\left (a +b \,x^{n}+c \,x^{2 n}\right )^{\frac {3}{2}}}d x\]

[In]

int((d*x)^(-1+1/2*n)*(-a*h+c*f*x^(1/2*n)+c*g*x^(3/2*n)+c*h*x^(2*n))/(a+b*x^n+c*x^(2*n))^(3/2),x)

[Out]

int((d*x)^(-1+1/2*n)*(-a*h+c*f*x^(1/2*n)+c*g*x^(3/2*n)+c*h*x^(2*n))/(a+b*x^n+c*x^(2*n))^(3/2),x)

Fricas [A] (verification not implemented)

none

Time = 0.28 (sec) , antiderivative size = 132, normalized size of antiderivative = 1.39 \[ \int \frac {(d x)^{-1+\frac {n}{2}} \left (-a h+c f x^{n/2}+c g x^{3 n/2}+c h x^{2 n}\right )}{\left (a+b x^n+c x^{2 n}\right )^{3/2}} \, dx=-\frac {2 \, {\left ({\left (b^{2} - 4 \, a c\right )} d^{\frac {1}{2} \, n - 1} h x^{\frac {1}{2} \, n} + {\left (2 \, c^{2} f - b c g\right )} d^{\frac {1}{2} \, n - 1} x^{n} + {\left (b c f - 2 \, a c g\right )} d^{\frac {1}{2} \, n - 1}\right )} \sqrt {c x^{2 \, n} + b x^{n} + a}}{{\left (b^{2} c - 4 \, a c^{2}\right )} n x^{2 \, n} + {\left (b^{3} - 4 \, a b c\right )} n x^{n} + {\left (a b^{2} - 4 \, a^{2} c\right )} n} \]

[In]

integrate((d*x)^(-1+1/2*n)*(-a*h+c*f*x^(1/2*n)+c*g*x^(3/2*n)+c*h*x^(2*n))/(a+b*x^n+c*x^(2*n))^(3/2),x, algorit
hm="fricas")

[Out]

-2*((b^2 - 4*a*c)*d^(1/2*n - 1)*h*x^(1/2*n) + (2*c^2*f - b*c*g)*d^(1/2*n - 1)*x^n + (b*c*f - 2*a*c*g)*d^(1/2*n
- 1))*sqrt(c*x^(2*n) + b*x^n + a)/((b^2*c - 4*a*c^2)*n*x^(2*n) + (b^3 - 4*a*b*c)*n*x^n + (a*b^2 - 4*a^2*c)*n)

Sympy [F(-1)]

Timed out. \[ \int \frac {(d x)^{-1+\frac {n}{2}} \left (-a h+c f x^{n/2}+c g x^{3 n/2}+c h x^{2 n}\right )}{\left (a+b x^n+c x^{2 n}\right )^{3/2}} \, dx=\text {Timed out} \]

[In]

integrate((d*x)**(-1+1/2*n)*(-a*h+c*f*x**(1/2*n)+c*g*x**(3/2*n)+c*h*x**(2*n))/(a+b*x**n+c*x**(2*n))**(3/2),x)

[Out]

Timed out

Maxima [F]

\[ \int \frac {(d x)^{-1+\frac {n}{2}} \left (-a h+c f x^{n/2}+c g x^{3 n/2}+c h x^{2 n}\right )}{\left (a+b x^n+c x^{2 n}\right )^{3/2}} \, dx=\int { \frac {{\left (c h x^{2 \, n} + c g x^{\frac {3}{2} \, n} + c f x^{\frac {1}{2} \, n} - a h\right )} \left (d x\right )^{\frac {1}{2} \, n - 1}}{{\left (c x^{2 \, n} + b x^{n} + a\right )}^{\frac {3}{2}}} \,d x } \]

[In]

integrate((d*x)^(-1+1/2*n)*(-a*h+c*f*x^(1/2*n)+c*g*x^(3/2*n)+c*h*x^(2*n))/(a+b*x^n+c*x^(2*n))^(3/2),x, algorit
hm="maxima")

[Out]

integrate((c*h*x^(2*n) + c*g*x^(3/2*n) + c*f*x^(1/2*n) - a*h)*(d*x)^(1/2*n - 1)/(c*x^(2*n) + b*x^n + a)^(3/2),
x)

Giac [F]

\[ \int \frac {(d x)^{-1+\frac {n}{2}} \left (-a h+c f x^{n/2}+c g x^{3 n/2}+c h x^{2 n}\right )}{\left (a+b x^n+c x^{2 n}\right )^{3/2}} \, dx=\int { \frac {{\left (c h x^{2 \, n} + c g x^{\frac {3}{2} \, n} + c f x^{\frac {1}{2} \, n} - a h\right )} \left (d x\right )^{\frac {1}{2} \, n - 1}}{{\left (c x^{2 \, n} + b x^{n} + a\right )}^{\frac {3}{2}}} \,d x } \]

[In]

integrate((d*x)^(-1+1/2*n)*(-a*h+c*f*x^(1/2*n)+c*g*x^(3/2*n)+c*h*x^(2*n))/(a+b*x^n+c*x^(2*n))^(3/2),x, algorit
hm="giac")

[Out]

integrate((c*h*x^(2*n) + c*g*x^(3/2*n) + c*f*x^(1/2*n) - a*h)*(d*x)^(1/2*n - 1)/(c*x^(2*n) + b*x^n + a)^(3/2),
x)

Mupad [F(-1)]

Timed out. \[ \int \frac {(d x)^{-1+\frac {n}{2}} \left (-a h+c f x^{n/2}+c g x^{3 n/2}+c h x^{2 n}\right )}{\left (a+b x^n+c x^{2 n}\right )^{3/2}} \, dx=\int \frac {{\left (d\,x\right )}^{\frac {n}{2}-1}\,\left (c\,f\,x^{n/2}-a\,h+c\,g\,x^{\frac {3\,n}{2}}+c\,h\,x^{2\,n}\right )}{{\left (a+b\,x^n+c\,x^{2\,n}\right )}^{3/2}} \,d x \]

[In]

int(((d*x)^(n/2 - 1)*(c*f*x^(n/2) - a*h + c*g*x^((3*n)/2) + c*h*x^(2*n)))/(a + b*x^n + c*x^(2*n))^(3/2),x)

[Out]

int(((d*x)^(n/2 - 1)*(c*f*x^(n/2) - a*h + c*g*x^((3*n)/2) + c*h*x^(2*n)))/(a + b*x^n + c*x^(2*n))^(3/2), x)